home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 11 / Amoszine 11 (Disk 2 of 2).adf / Loads_Of_Source.lha / 3d_requestor.amos / 3d_requestor.amosSourceCode
Encoding:
AMOS Source Code  |  1980-11-18  |  1.8 KB  |  62 lines
  1. Rem 3d requestor!! 
  2. Default 
  3. Paper 0 : Pen 2 : Cls : Curs Off 
  4. REQ["The New 3D Requestor By Mike","Foord, Hope You Like it","Carry On",""]
  5. Print "Program Loop, Press Q to exit."
  6. Z=0
  7. MAINLOOP
  8. '
  9. Procedure MAINLOOP
  10. Shared Z
  11. Do 
  12. K$=Upper$(Inkey$)
  13. If K$="Q" Then REQ["User Selected Quit Option","Please Confirm","Okay!","Cancel"]
  14. If Mouse Key=2 Then REQ["User selected mouse option","Please Confirm","Okay!","Cancel"]
  15. If Z=1 Then REQ["Quit Confirmed","Bye","Bye",""] : End 
  16. If Z=2 Then Z=0
  17. Loop 
  18. End Proc
  19. '
  20. Procedure REQ[T1$,T2$,B1$,B2$]
  21. Shared Z
  22. Screen Open 7,640,60,4,Hires
  23. Screen Display 7,130,110,,
  24. Limit Mouse 215,110 To 350,155
  25. Show 
  26. Flash Off 
  27. Paper 0 : Cls : Curs Off 
  28. Palette $0,$444,$777,$FFF
  29. Reserve Zone 2
  30. If Len(T1$)>33 Then T1$=Left$(T1$,33)
  31. If Len(T1$)>33 Then T2$=Left$(T2$,33)
  32. If Len(T1$)>8 Then B1$=Left$(B1$,8)
  33. If Len(T1$)>8 Then B2$=Left$(B2$,8)
  34. Ink 1 : Bar 170,0 To 470,59
  35. Ink 3 : Bar 171,1 To 470,59
  36. Ink 2 : Bar 171,1 To 468,58
  37. Ink 0 : Box 180,10 To 458,30
  38. Ink 3 : Draw 180,30 To 458,30
  39. Ink 3 : Draw 458,30 To 458,10
  40. If Len(B1$)>0
  41. Ink 3 : Box 200,37 To 270,52
  42. Ink 0 : Draw 200,52 To 270,52
  43. Ink 0 : Draw 270,52 To 270,37
  44. End If 
  45. If Len(B2$)>0
  46. Ink 3 : Box 360,37 To 430,52
  47. Ink 0 : Draw 360,52 To 430,52
  48. Ink 0 : Draw 430,52 To 430,37
  49. End If 
  50. Ink 0,2
  51. Text 184,19,T1$
  52. Text 184,27,T2$
  53. Text 204,47,B1$
  54. Text 364,47,B2$
  55. If Len(B1$)>0 Then Set Zone 1,200,37 To 270,52
  56. If Len(B2$)>0 Then Set Zone 2,360,37 To 430,52
  57. Do 
  58. Z=Mouse Zone
  59. If Z=1 and Mouse Key=1 Then Ink 0 : Box 200,37 To 200,52 : Ink 3 : Draw 200,52 To 270,52 : Ink 3 : Draw 270,52 To 270,37 : Bell 70 : Wait 10 : Screen Close 7 : Limit Mouse : Pop Proc
  60. If Z=2 and Mouse Key=1 Then Ink 0 : Box 360,37 To 430,52 : Ink 3 : Draw 360,52 To 430,52 : Ink 3 : Draw 430,52 To 430,37 : Bell 40 : Wait 10 : Screen Close 7 : Limit Mouse : Pop Proc
  61. Loop 
  62. End Proc